home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / NEW_CHKP.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  173 lines
  1. ;\|
  2. ;NEW_CHKP.SRC     Translated from NEW_CHKP.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;NEW_CHKP 07:29:51 PM  11/ 4/90                    |
  4. ;Program generated with the database file lister|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(MEM_REG|S|8||)
  18.     define(MEM_TARG|N|4||)
  19.     clrscr
  20.     mount(NEW|S)
  21.     enter(MEM_REG||||N|N|N|||N)
  22.     clrlne(1|25)
  23.     open(PATIENT |||)
  24.     gosub GET.DATE
  25.     pchr(P|10)
  26.     pchr(P|11)
  27.     pchr(P|4)
  28.     trap(P|G|TOF)
  29.     mount(REPORT|R|P)
  30.     trap(I|G|FINI)
  31.     find(B|PATIENT.NAME   |NO.RECS)
  32. PRT.REC:
  33.     if PAT.REG = (0) goto RD.NEXT
  34.     if PAT.REG => (MEM_REG) do
  35.         {
  36.         if SEEN <> (0) do
  37.             {
  38.             MEM_TARG = (SEEN-PAT.REG)
  39.             if MEM_TARG <= (93) then pfmt(6||||)
  40.             }
  41.         }
  42.     TOT.RECS = (TOT.RECS + 1)
  43. RD.NEXT:
  44.     find(N|PATIENT |FINI)
  45.     goto PRT.REC
  46. FINI:
  47.     pfmt(5||||)
  48.     pfmt(8||||)
  49.     pblnk(2)
  50.     pfmt(7||||)
  51.     trap(P|D|)
  52.     ptof
  53.     run("recmenu")
  54. TOF:
  55.     PAGE = (PAGE + 1)
  56.     pfmt(1||||)
  57.     pfmt(2||||)
  58.     pfmt(3||||)
  59.     pblnk(1)
  60.     pfmt(4||||)
  61.     pfmt(5||||)
  62.     ret
  63. GET.DATE:
  64.     time(CHG.TIME|G)
  65.     date(CHG.DATE|G)
  66.     AM.PM = ("AM")
  67.     if CHG.TIME > (43199) doO 
  68.         {
  69.         AM.PM = ("PM")
  70.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  71.         }
  72.     TIME.STRG =mid(CHG.TIME|1|8|)
  73.     STDDAYS =day(CHG.DATE)
  74.     STDMONTH =xmt(CHG.DATE)
  75.     STDAYH =mid(CHG.DATE|4|2|)
  76.     STDYEAR =mid(CHG.DATE|7|4|)
  77.     PG.STRG = (PAGE)
  78.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  79.     ret
  80. NO.RECS:
  81.     pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  82. EXIT:
  83.     run("recmenu")
  84. \R REPORT  
  85.                 NEW_CHKP - Database File Listing for: PATIENT
  86.                 &
  87.                               Page # &
  88. PATIENT.NAME                 ADDRESS1                DOB      DR PAT.REG  SEEN
  89. ---------------------------  ----------------------  -------- -- -------  ------
  90. &                          &                      &          & &        &
  91. Total number of records printed: &
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133. \
  134. DATE.TIME.FLD
  135. PAGE
  136. PATIENT.NAME
  137. ADDRESS1
  138. DATE.OF.BIRTH
  139. DOCTOR
  140. PAT.REG
  141. DATE_SEEN
  142. TOT.RECS
  143. \
  144. \STNEW     
  145.  
  146.  
  147.  
  148.           THIS PROGRAM WILL FIND ALL NEW PATIENTS WHO HAVE BEEN SEEN
  149.           IN THE THREE MONTHS FOLLOWING REGISTRATION.
  150.           ===========================================================
  151.  
  152.           ENTER THE REGISTRATION DATE YOU WANT TO GO FROM.
  153.           THE PROGRAM WILL ONLY LOOK AT THE 3 MONTHS FOLLOWING THIS.
  154.           EG:01/04/90 WILL LOOK TO 31/07/90
  155.  
  156.           ENTER THE DATE:&
  157.  
  158.           THE PRINT OUT WILL FOLLOW DATE ENTRY.
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169. \
  170. MEM_REG
  171. \
  172.  
  173.